Imports System.Xml
Imports System.Data.SqlClient
Public Class dImpRecRet
  Public Function Insertar(ByVal IdRetencion as String,ByVal IdRecibo as String) as BOOLEAN
     Dim Parametros As ArrayList = New ArrayList
     if IdRetencion <> "" then 
       Parametros.Add(New SqlParameter("@pEIdRetencion", IdRetencion))
     End If
     if IdRecibo <> "" then 
       Parametros.Add(New SqlParameter("@pEIdRecibo", IdRecibo))
     End If
     Return dconexion.ABM("STORE_TblImpRecRetALTA", Parametros)
  End Function
  Public Function Eliminar(ByVal IdImpRecRet as String) as BOOLEAN
     Dim Parametros As ArrayList = New ArrayList
     if IdImpRecRet <> "" then 
       Parametros.Add(New SqlParameter("@pEIdImpRecRet", IdImpRecRet))
     End If
     Return dconexion.ABM("STORE_TblImpRecRetELIMINAR", Parametros)
  End Function
  Public Function BuscarFiltrado(ByVal IdImpRecRet as String,ByVal IdRetencion as String,ByVal IdRecibo as String) as DATASET
     Dim Parametros As ArrayList = New ArrayList
     if IdImpRecRet <> "" then 
       Parametros.Add(New SqlParameter("@pEIdImpRecRet", IdImpRecRet))
     End If
     if IdRetencion <> "" then 
       Parametros.Add(New SqlParameter("@pEIdRetencion", IdRetencion))
     End If
     if IdRecibo <> "" then 
       Parametros.Add(New SqlParameter("@pEIdRecibo", IdRecibo))
     End If
     Return dconexion.Consultar("STORE_TblImpRecRetBUSCARFILTRADO", Parametros)
  End Function
End Class
